home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / gurafu.bas < prev    next >
BASIC Source File  |  1994-05-29  |  1KB  |  40 lines
  1. 10 CLS
  2. 20 PRINT "a=999のときメニュー  a=-100のとき増分値･色設定"
  3. 30 PRINT "a=0のときグラフ変更  a=100のときクリア"
  4. 40 LINE (80,240)-(550,240),PSET,7
  5. 50 LINE (320,0)-(320,480) ,PSET,7
  6. 60 '
  7. 70 INPUT "増分値=",Z : IF Z=0 THEN 70
  8. 80 PRINT "Y=aX2+bX+cのグラフ"
  9. 90 INPUT "色=",D
  10. 100 IF D=0 OR D=1 OR D=2 OR D=3 OR D=4 OR D=5 OR D=6 OR D=7 THEN 110 ELSE 90
  11. 110 INPUT "a=",A
  12. 120   IF A=-100 THEN 70
  13. 130   IF A=100  THEN 10
  14. 140   IF A=0    THEN 280
  15. 150   IF A=999  THEN RUN "MENU.BAS" 
  16. 160 INPUT "b=",B:INPUT "c=",C
  17. 170 FOR I=-10 TO 10 STEP Z
  18. 180  X=I : Y=A*X*X+B*X+C
  19. 190   PSET (X*10+320,240-Y*10),D
  20. 200    NEXT I
  21. 210  GOTO 110
  22. 220 '
  23. 230 '
  24. 240 CLS
  25. 250 LINE (80,240)-(550,240),PSET,7
  26. 260 LINE (320,0)-(320,480) ,PSET,7
  27. 270 '
  28. 280 PRINT "Y=aX+bのグラフ"
  29. 290 INPUT "色=",C
  30. 300 IF C=0 OR C=1 OR C=2 OR C=3 OR C=4 OR C=5 OR C=6 OR C=7 THEN 310 ELSE 290
  31. 310 INPUT "a=", A
  32. 320 IF A=0  THEN 70
  33. 330 IF A=100 THEN 240
  34. 340 IF A=-100 THEN 290
  35. 350 IF A=999  THEN RUN "MENU.BAS"
  36. 360 INPUT "b=", B
  37. 370 LINE (320,240-B*10)-(640,240-320*A-B*10),PSET,C
  38. 380 LINE (320,240-B*10)-(0,240+320*A-B*10),PSET,C
  39. 390 GOTO 310
  40.